/ Compute! Gazette 1995 January / 1995-01b.d64 / irq drive tone.s

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 20 6f 72 67 20 24 | 30 33 33 34 20 3b 38 32 |.. org $|0334 ;82|
|00000010| 30 a0 64 65 63 69 6d 61 | 6c 2e a0 a0 75 6e 75 73 |0.decima|l...unus|
|00000020| 65 64 a0 62 79 74 65 73 | a0 26 a0 74 61 70 65 a0 |ed.bytes|.&.tape.|
|00000030| 69 2f 6f a0 62 75 66 66 | 65 72 0d 6f 70 65 6e 20 |i/o.buff|er.open |
|00000040| 3d 20 24 66 66 63 30 20 | 3b 6f 70 65 6e a0 61 a0 |= $ffc0 |;open.a.|
|00000050| 6c 6f 67 69 63 61 6c a0 | 66 69 6c 65 0d 73 65 74 |logical.|file.set|
|00000060| 6c 66 73 20 3d 20 24 66 | 66 62 61 20 3b 73 65 74 |lfs = $f|fba ;set|
|00000070| a0 6c 6f 67 69 63 61 6c | 2c a0 66 69 72 73 74 a0 |.logical|,.first.|
|00000080| 61 6e 64 a0 73 65 63 6f | 6e 64 a0 61 64 64 72 65 |and.seco|nd.addre|
|00000090| 73 73 65 73 0d 73 65 74 | 6e 61 6d 20 3d 20 24 66 |sses.set|nam = $f|
|000000a0| 66 62 64 20 3b 73 65 74 | a0 66 69 6c 65 a0 6e 61 |fbd ;set|.file.na|
|000000b0| 6d 65 0d 63 68 72 69 6e | 20 3d 20 24 66 66 63 66 |me.chrin| = $ffcf|
|000000c0| 20 3b 69 6e 70 75 74 a0 | 63 68 61 72 61 63 74 65 | ;input.|characte|
|000000d0| 72 a0 66 72 6f 6d a0 63 | 68 61 6e 6e 65 6c 0d 63 |r.from.c|hannel.c|
|000000e0| 6c 72 63 68 6e 20 3d 20 | 24 66 66 63 63 20 3b 63 |lrchn = |$ffcc ;c|
|000000f0| 6c 6f 73 65 a0 69 6e 70 | 75 74 a0 61 6e 64 a0 6f |lose.inp|ut.and.o|
|00000100| 75 74 70 75 74 a0 63 68 | 61 6e 6e 65 6c 73 0d 63 |utput.ch|annels.c|
|00000110| 68 6b 69 6e 20 3d 20 24 | 66 66 63 36 20 3b 6f 70 |hkin = $|ffc6 ;op|
|00000120| 65 6e a0 63 68 61 6e 6e | 65 6c a0 66 6f 72 a0 69 |en.chann|el.for.i|
|00000130| 6e 70 75 74 0d 63 68 72 | 6f 75 74 20 3d 20 24 66 |nput.chr|out = $f|
|00000140| 66 64 32 20 3b 6f 75 74 | 70 75 74 a0 63 68 61 72 |fd2 ;out|put.char|
|00000150| 61 63 74 65 72 a0 74 6f | a0 63 68 61 6e 6e 65 6c |acter.to|.channel|
|00000160| 0d 63 6c 6f 73 65 20 3d | 20 24 66 66 63 33 20 3b |.close =| $ffc3 ;|
|00000170| 63 6c 6f 73 65 a0 61 a0 | 6c 6f 67 69 63 61 6c a0 |close.a.|logical.|
|00000180| 66 69 6c 65 a0 73 70 65 | 63 69 66 69 65 64 a0 69 |file.spe|cified.i|
|00000190| 6e a0 61 63 63 75 6d 75 | 6c 61 74 6f 72 0d 73 74 |n.accumu|lator.st|
|000001a0| 61 74 75 73 20 3d 20 24 | 39 30 20 3b 62 69 74 a0 |atus = $|90 ;bit.|
|000001b0| 36 a0 73 65 74 a0 61 74 | a0 65 6e 64 a0 6f 66 a0 |6.set.at|.end.of.|
|000001c0| 66 69 6c 65 3a a0 73 74 | 3d 36 34 0d 70 6c 6f 74 |file:.st|=64.plot|
|000001d0| 20 3d 20 24 66 66 66 30 | 20 3b 73 65 74 a0 28 63 | = $fff0| ;set.(c|
|000001e0| 6c 63 29 2f 72 65 61 64 | a0 28 73 65 63 29 a0 63 |lc)/read|.(sec).c|
|000001f0| 75 72 73 6f 72 a0 70 6f | 73 69 74 69 6f 6e 0d 76 |ursor.po|sition.v|
|00000200| 20 3d 20 24 64 34 30 30 | 20 3b 66 69 72 73 74 a0 | = $d400| ;first.|
|00000210| 61 64 64 72 65 73 73 a0 | 6f 66 a0 73 6f 75 6e 64 |address.|of.sound|
|00000220| a0 69 6e 74 65 72 66 61 | 63 65 a0 64 65 76 69 63 |.interfa|ce.devic|
|00000230| 65 a0 28 73 69 64 29 0d | 69 72 71 72 74 6e 20 3d |e.(sid).|irqrtn =|
|00000240| 20 24 65 61 33 31 20 3b | 6e 6f 72 6d 61 6c a0 69 | $ea31 ;|normal.i|
|00000250| 6e 74 65 72 72 75 70 74 | a0 72 6f 75 74 69 6e 65 |nterrupt|.routine|
|00000260| 0d 76 65 63 69 72 71 20 | 3d 20 24 33 31 34 20 3b |.vecirq |= $314 ;|
|00000270| 6c 6f 77 a0 62 79 74 65 | a0 6f 66 a0 76 65 63 74 |low.byte|.of.vect|
|00000280| 6f 72 a0 74 6f a0 69 6e | 74 65 72 72 75 70 74 a0 |or.to.in|terrupt.|
|00000290| 72 6f 75 74 69 6e 65 0d | 6e 75 6d 62 65 72 20 3d |routine.|number =|
|000002a0| 20 31 32 30 20 3b 63 68 | 65 63 6b a0 64 72 69 76 | 120 ;ch|eck.driv|
|000002b0| 65 a0 65 76 65 72 79 a0 | 74 77 6f a0 73 65 63 6f |e.every.|two.seco|
|000002c0| 6e 64 73 0d 0d 20 6a 6d | 70 20 69 6e 69 74 0d 72 |nds.. jm|p init.r|
|000002d0| 65 73 65 74 20 73 65 69 | 20 20 3b 6e 6f a0 69 6e |eset sei|  ;no.in|
|000002e0| 74 65 72 72 75 70 74 73 | a0 77 68 69 6c 65 a0 69 |terrupts|.while.i|
|000002f0| 72 71 a0 76 65 63 74 6f | 72 a0 69 73 a0 62 65 69 |rq.vecto|r.is.bei|
|00000300| 6e 67 a0 72 65 73 65 74 | 0d 20 6c 64 61 20 23 24 |ng.reset|. lda #$|
|00000310| 33 31 0d 20 6c 64 79 20 | 23 24 65 61 0d 20 73 74 |31. ldy |#$ea. st|
|00000320| 61 20 76 65 63 69 72 71 | 0d 20 73 74 79 20 76 65 |a vecirq|. sty ve|
|00000330| 63 69 72 71 2b 31 20 3b | 70 6f 69 6e 74 a0 69 72 |cirq+1 ;|point.ir|
|00000340| 71 a0 76 65 63 74 6f 72 | a0 74 6f a0 6e 6f 72 6d |q.vector|.to.norm|
|00000350| 61 6c a0 69 6e 74 65 72 | 72 75 70 74 a0 72 6f 75 |al.inter|rupt.rou|
|00000360| 74 69 6e 65 a0 26 0d 20 | 63 6c 69 20 20 3b 72 65 |tine.&. |cli  ;re|
|00000370| 73 65 74 a0 6f 70 65 72 | 61 74 69 6e 67 a0 73 79 |set.oper|ating.sy|
|00000380| 73 74 65 6d a0 74 6f a0 | 6e 6f 72 6d 61 6c a0 69 |stem.to.|normal.i|
|00000390| 6e 74 65 72 72 75 70 74 | 73 0d 20 72 74 73 0d 69 |nterrupt|s. rts.i|
|000003a0| 6e 69 74 20 73 65 69 0d | 20 6c 64 61 20 23 3c 64 |nit sei.| lda #<d|
|000003b0| 72 62 65 6c 6c 0d 20 6c | 64 79 20 23 3e 64 72 62 |rbell. l|dy #>drb|
|000003c0| 65 6c 6c 0d 20 73 74 61 | 20 76 65 63 69 72 71 0d |ell. sta| vecirq.|
|000003d0| 20 73 74 79 20 76 65 63 | 69 72 71 2b 31 20 3b 70 | sty vec|irq+1 ;p|
|000003e0| 6f 69 6e 74 a0 69 72 71 | a0 76 65 63 74 6f 72 a0 |oint.irq|.vector.|
|000003f0| 74 6f a0 64 72 69 76 65 | a0 63 68 65 63 6b 2c a0 |to.drive|.check,.|
|00000400| 62 65 6c 6c a0 72 6f 75 | 74 69 6e 65 0d 20 63 6c |bell.rou|tine. cl|
|00000410| 69 0d 20 72 74 73 0d 64 | 72 62 65 6c 6c 20 64 65 |i. rts.d|rbell de|
|00000420| 63 20 63 6f 75 6e 74 0d | 20 62 65 71 20 72 65 6c |c count.| beq rel|
|00000430| 6f 61 64 20 3b 69 73 a0 | 63 6f 75 6e 74 65 72 a0 |oad ;is.|counter.|
|00000440| 7a 65 72 6f 3f 0d 20 6a | 6d 70 20 69 72 71 72 74 |zero?. j|mp irqrt|
|00000450| 6e 20 3b 6e 6f 2c a0 6a | 6d 70 a0 74 6f a0 6e 6f |n ;no,.j|mp.to.no|
|00000460| 72 6d 61 6c a0 69 72 71 | a0 72 6f 75 74 69 6e 65 |rmal.irq|.routine|
|00000470| 0d 72 65 6c 6f 61 64 20 | 6c 64 61 20 23 6e 75 6d |.reload |lda #num|
|00000480| 62 65 72 20 3b 79 65 73 | 2c a0 72 65 6c 6f 61 64 |ber ;yes|,.reload|
|00000490| a0 63 6f 75 6e 74 65 72 | a0 61 6e 64 a0 63 68 65 |.counter|.and.che|
|000004a0| 63 6b a0 64 69 73 6b a0 | 64 72 69 76 65 0d 20 73 |ck.disk.|drive. s|
|000004b0| 74 61 20 63 6f 75 6e 74 | 0d 20 6c 64 61 20 23 31 |ta count|. lda #1|
|000004c0| 20 3b 6c 6f 67 69 63 61 | 6c a0 66 69 6c 65 a0 6e | ;logica|l.file.n|
|000004d0| 75 6d 62 65 72 a0 28 6c | 66 6e 29 0d 20 6c 64 78 |umber.(l|fn). ldx|
|000004e0| 20 24 62 61 20 3b 64 65 | 63 69 6d 61 6c a0 31 38 | $ba ;de|cimal.18|
|000004f0| 36 a0 69 73 a0 6c 6f 63 | 61 74 69 6f 6e a0 6f 66 |6.is.loc|ation.of|
|00000500| a0 64 65 76 69 63 65 a0 | 6e 75 6d 62 65 72 0d 20 |.device.|number. |
|00000510| 63 70 78 20 23 38 0d 20 | 62 63 73 20 6f 6b 64 65 |cpx #8. |bcs okde|
|00000520| 76 69 63 65 20 3b 64 65 | 76 69 63 65 a0 6e 75 6d |vice ;de|vice.num|
|00000530| 62 65 72 a0 69 73 a0 65 | 71 75 61 6c a0 74 6f a0 |ber.is.e|qual.to.|
|00000540| 6f 72 a0 67 72 65 61 74 | 65 72 a0 74 68 61 6e a0 |or.great|er.than.|
|00000550| 38 0d 20 6c 64 78 20 23 | 38 20 3b 74 68 65 73 65 |8. ldx #|8 ;these|
|00000560| a0 6c 69 6e 65 73 a0 61 | 72 65 a0 65 71 75 69 76 |.lines.a|re.equiv|
|00000570| 61 6c 65 6e 74 a0 74 6f | a0 74 68 65 a0 62 61 73 |alent.to|.the.bas|
|00000580| 69 63 a0 6c 69 6e 65 0d | 3b 64 76 3d 70 65 65 6b |ic.line.|;dv=peek|
|00000590| 28 31 38 36 29 3a 69 66 | a0 64 76 3c 38 a0 74 68 |(186):if|.dv<8.th|
|000005a0| 65 6e a0 64 76 3d 38 0d | 6f 6b 64 65 76 69 63 65 |en.dv=8.|okdevice|
|000005b0| 20 6c 64 79 20 23 31 35 | 20 3b 73 65 63 6f 6e 64 | ldy #15| ;second|
|000005c0| 61 72 79 a0 61 64 64 72 | 65 73 73 a0 28 63 6f 6d |ary.addr|ess.(com|
|000005d0| 6d 61 6e 64 a0 6e 75 6d | 62 65 72 29 0d 20 6a 73 |mand.num|ber). js|
|000005e0| 72 20 73 65 74 6c 66 73 | 20 3b 73 65 74 a0 6c 66 |r setlfs| ;set.lf|
|000005f0| 6e 2c a0 64 65 76 69 63 | 65 a0 6e 75 6d 62 65 72 |n,.devic|e.number|
|00000600| a0 61 6e 64 a0 63 6f 6d | 6d 61 6e 64 a0 6e 75 6d |.and.com|mand.num|
|00000610| 62 65 72 0d 20 6c 64 61 | 20 23 30 0d 20 6a 73 72 |ber. lda| #0. jsr|
|00000620| 20 73 65 74 6e 61 6d 20 | 3b 6e 6f a0 6e 61 6d 65 | setnam |;no.name|
|00000630| 0d 20 6a 73 72 20 6f 70 | 65 6e 20 3b 6f 70 65 6e |. jsr op|en ;open|
|00000640| a0 31 2c 64 76 2c 31 35 | 0d 20 6c 64 78 20 23 31 |.1,dv,15|. ldx #1|
|00000650| 0d 20 6a 73 72 20 63 68 | 6b 69 6e 20 3a 6f 70 65 |. jsr ch|kin :ope|
|00000660| 6e 20 65 72 72 6f 72 20 | 63 68 61 6e 6e 65 6c 20 |n error |channel |
|00000670| 66 6f 72 20 69 6e 70 75 | 74 0d 20 6a 73 72 20 63 |for inpu|t. jsr c|
|00000680| 68 72 69 6e 20 3b 67 65 | 74 a0 61 a0 63 68 61 72 |hrin ;ge|t.a.char|
|00000690| 61 63 74 65 72 a0 66 72 | 6f 6d a0 65 72 72 6f 72 |acter.fr|om.error|
|000006a0| a0 63 68 61 6e 6e 65 6c | 0d 20 70 68 61 20 20 3b |.channel|. pha  ;|
|000006b0| 70 75 73 68 a0 61 63 63 | 75 6d 75 6c 61 74 6f 72 |push.acc|umulator|
|000006c0| a0 6f 6e a0 73 74 61 63 | 6b 0d 20 63 6d 70 20 23 |.on.stac|k. cmp #|
|000006d0| 34 38 20 3b 7a 65 72 6f | 3f 0d 20 62 6e 65 20 65 |48 ;zero|?. bne e|
|000006e0| 72 72 6d 73 67 20 3b 6e | 6f 2c a0 70 6f 73 73 69 |rrmsg ;n|o,.possi|
|000006f0| 62 6c 65 a0 64 72 69 76 | 65 a0 65 72 72 6f 72 0d |ble.driv|e.error.|
|00000700| 20 70 6c 61 20 20 3b 6e | 6f a0 64 72 69 76 65 a0 | pla  ;n|o.drive.|
|00000710| 65 72 72 6f 72 2c a0 73 | 6f a0 67 65 74 a0 61 63 |error,.s|o.get.ac|
|00000720| 63 75 6d 75 6c 61 74 6f | 72 a0 62 61 63 6b 0d 20 |cumulato|r.back. |
|00000730| 6a 73 72 20 63 6c 72 63 | 68 6e 20 3b 63 6c 65 61 |jsr clrc|hn ;clea|
|00000740| 72 a0 61 6c 6c a0 63 68 | 61 6e 6e 65 6c 73 a0 61 |r.all.ch|annels.a|
|00000750| 6e 64 a0 72 65 73 74 6f | 72 65 a0 69 2f 6f a0 63 |nd.resto|re.i/o.c|
|00000760| 68 61 6e 6e 65 6c 73 0d | 20 6c 64 61 20 23 31 0d |hannels.| lda #1.|
|00000770| 20 6a 73 72 20 63 6c 6f | 73 65 20 3b 63 6c 6f 73 | jsr clo|se ;clos|
|00000780| 65 a0 6c 66 6e 0d 20 6a | 6d 70 20 69 72 71 72 74 |e.lfn. j|mp irqrt|
|00000790| 6e 20 3b 72 65 74 75 72 | 6e a0 74 6f a0 6e 6f 72 |n ;retur|n.to.nor|
|000007a0| 6d 61 6c a0 69 6e 74 65 | 72 72 75 70 74 a0 72 6f |mal.inte|rrupt.ro|
|000007b0| 75 74 69 6e 65 0d 65 72 | 72 6d 73 67 20 63 6c 63 |utine.er|rmsg clc|
|000007c0| 0d 20 6c 64 78 20 23 24 | 30 30 0d 20 6c 64 79 20 |. ldx #$|00. ldy |
|000007d0| 23 24 30 30 0d 20 6a 73 | 72 20 70 6c 6f 74 20 3b |#$00. js|r plot ;|
|000007e0| 65 72 72 6f 72 a0 6d 65 | 73 73 61 67 65 a0 77 69 |error.me|ssage.wi|
|000007f0| 6c 6c a0 62 65 a0 64 69 | 73 70 6c 61 79 65 64 a0 |ll.be.di|splayed.|
|00000800| 69 6e a0 75 70 70 65 72 | a0 6c 65 66 74 2d 0d 20 |in.upper|.left-. |
|00000810| 6c 64 61 20 23 31 38 20 | 3b 68 61 6e 64 a0 63 6f |lda #18 |;hand.co|
|00000820| 72 6e 65 72 a0 6f 66 a0 | 73 63 72 65 65 6e a0 69 |rner.of.|screen.i|
|00000830| 6e a0 72 65 76 65 72 73 | 65 a0 76 69 64 65 6f 0d |n.revers|e.video.|
|00000840| 20 6a 73 72 20 63 68 72 | 6f 75 74 20 3b 72 65 76 | jsr chr|out ;rev|
|00000850| 65 72 73 65 a0 76 69 64 | 65 6f a0 6f 6e 0d 20 70 |erse.vid|eo.on. p|
|00000860| 6c 61 0d 67 65 74 62 79 | 74 20 6a 73 72 20 63 68 |la.getby|t jsr ch|
|00000870| 72 6f 75 74 0d 20 6a 73 | 72 20 63 68 72 69 6e 0d |rout. js|r chrin.|
|00000880| 20 62 69 74 20 73 74 61 | 74 75 73 0d 20 62 76 63 | bit sta|tus. bvc|
|00000890| 20 67 65 74 62 79 74 20 | 3b 36 34 3d 32 5e 36 a0 | getbyt |;64=2^6.|
|000008a0| 73 6f a0 62 69 74 a0 36 | a0 69 73 a0 73 65 74 a0 |so.bit.6|.is.set.|
|000008b0| 61 74 a0 65 6e 64 a0 6f | 66 a0 6d 65 73 73 61 67 |at.end.o|f.messag|
|000008c0| 65 0d 20 6c 64 61 20 23 | 31 34 36 0d 20 6a 73 72 |e. lda #|146. jsr|
|000008d0| 20 63 68 72 6f 75 74 20 | 3b 72 65 76 65 72 73 65 | chrout |;reverse|
|000008e0| a0 76 69 64 65 6f a0 6f | 66 66 0d 62 65 6c 6c 20 |.video.o|ff.bell |
|000008f0| 6c 64 78 20 23 30 0d 20 | 6c 64 61 20 23 30 0d 6c |ldx #0. |lda #0.l|
|00000900| 31 20 73 74 61 20 76 2c | 78 20 3b 63 6c 65 61 72 |1 sta v,|x ;clear|
|00000910| a0 73 69 64 a0 72 65 67 | 69 73 74 65 72 73 0d 20 |.sid.reg|isters. |
|00000920| 69 6e 78 0d 20 63 70 78 | 20 23 32 34 0d 20 62 6e |inx. cpx| #24. bn|
|00000930| 65 20 6c 31 0d 20 6c 64 | 61 20 23 37 30 20 3b 66 |e l1. ld|a #70 ;f|
|00000940| 6f 6c 6c 6f 77 69 6e 67 | a0 6c 69 6e 65 73 a0 77 |ollowing|.lines.w|
|00000950| 69 6c 6c a0 67 65 6e 65 | 72 61 74 65 a0 61 a0 62 |ill.gene|rate.a.b|
|00000960| 65 6c 6c a0 73 6f 75 6e | 64 0d 20 73 74 61 20 76 |ell.soun|d. sta v|
|00000970| 2b 31 0d 20 6c 64 61 20 | 23 32 34 39 0d 20 73 74 |+1. lda |#249. st|
|00000980| 61 20 76 2b 36 0d 20 6c | 64 61 20 23 31 35 0d 20 |a v+6. l|da #15. |
|00000990| 73 74 61 20 76 2b 32 34 | 0d 20 6c 64 61 20 23 31 |sta v+24|. lda #1|
|000009a0| 37 0d 20 73 74 61 20 76 | 2b 34 0d 20 6c 64 61 20 |7. sta v|+4. lda |
|000009b0| 23 31 36 0d 20 73 74 61 | 20 76 2b 34 0d 20 6a 73 |#16. sta| v+4. js|
|000009c0| 72 20 63 6c 72 63 68 6e | 0d 20 6c 64 61 20 23 31 |r clrchn|. lda #1|
|000009d0| 0d 20 6a 73 72 20 63 6c | 6f 73 65 0d 20 6a 6d 70 |. jsr cl|ose. jmp|
|000009e0| 20 69 72 71 72 74 6e 0d | 63 6f 75 6e 74 20 64 66 | irqrtn.|count df|
|000009f0| 62 20 6e 75 6d 62 65 72 | 0d                      |b number|.       |
+--------+-------------------------+-------------------------+--------+--------+